object dem01form: Tdem01form Left = 57 Top = 205 Width = 604 Height = 379 ActiveControl = Panel1 Caption = 'dem01form' Font.Color = clBlack Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 120 Position = poScreenCenter OnCreate = FormCreate TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 596 Height = 97 Align = alTop TabOrder = 0 object Label1: TLabel Left = 25 Top = 16 Width = 434 Height = 19 Caption = 'This is a demonstration of the TPrintGridReport Component.' Color = clBtnFace Font.Color = clMaroon Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Label2: TLabel Left = 25 Top = 41 Width = 421 Height = 19 Caption = 'The 5 lines of coding you need to be able to preview and ' Color = clBtnFace Font.Color = clMaroon Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Label3: TLabel Left = 25 Top = 64 Width = 350 Height = 19 Caption = 'print this table can be found in REPDEM01.PAS' Color = clBtnFace Font.Color = clMaroon Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object PreView: TBitBtn Left = 496 Top = 9 Width = 89 Height = 27 Caption = 'Pre&View' TabOrder = 0 OnClick = PreViewClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 end object Exit: TBitBtn Left = 496 Top = 64 Width = 89 Height = 28 Caption = '&Exit' ModalResult = 2 TabOrder = 1 OnClick = ExitClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F3333333F7F333301111111B10333337F333333737F33330111111111 0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11 0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11 0333337F377777337F333301111111110333337F333333337F33330111111111 0333337FFFFFFFFF7F33330000000000033333777777777773330000} NumGlyphs = 2 end object Print: TBitBtn Left = 496 Top = 37 Width = 89 Height = 27 Caption = '&Print' TabOrder = 2 OnClick = PrintClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 end end object Panel2: TPanel Left = 0 Top = 97 Width = 596 Height = 255 Align = alClient BevelInner = bvLowered BorderWidth = 4 Caption = 'Panel2' TabOrder = 1 object DBGrid1: TDBGrid Left = 6 Top = 6 Width = 584 Height = 243 Align = alClient BorderStyle = bsNone DataSource = DataSource1 Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsItalic] Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] ParentFont = False TabOrder = 0 TitleFont.Color = clBlue TitleFont.Height = -13 TitleFont.Name = 'Arial' TitleFont.Style = [fsBold] end end object DataSource1: TDataSource DataSet = Table1 Left = 407 Top = 61 end object Table1: TTable Active = True DatabaseName = 'DBDEMOS' TableName = 'customer.db' Left = 376 Top = 57 object Table1CustNo: TFloatField DisplayWidth = 4 FieldName = 'CustNo' end object Table1Company: TStringField DisplayWidth = 11 FieldName = 'Company' Size = 30 end object Table1City: TStringField DisplayWidth = 7 FieldName = 'City' Size = 15 end object Table1Country: TStringField DisplayWidth = 7 FieldName = 'Country' end object Table1Phone: TStringField DisplayWidth = 13 FieldName = 'Phone' Size = 15 end end object PrintGridReport1: TPrintGridReport ViewButtonVisible = False OutputTo = poViewer Orientation = Default ViewBkColor = 11234567 Units = poInches ViewHeading = 'Reportit Viewer' FooterFont.Color = clWindowText FooterFont.Height = 12 FooterFont.Name = 'Arial' FooterFont.Style = [] HeaderFont.Color = clRed HeaderFont.Height = -20 HeaderFont.Name = 'Times New Roman' HeaderFont.Style = [fsBold] ZoomPercentage = 100.000000000000000000 HeaderTop = 0.500000000000000000 HeaderStringCenter = 'Page Header' HeaderEnabled = True HeaderOutlined = True HeaderFilled = False FooterTop = 24.630000000000000000 FooterString = 'Page Footer' FooterEnabled = True FooterOutlined = True FooterFilled = True DisableControls = True BorderLeft = 0.250000000000000000 BorderRight = 0.250000000000000000 DateTimeStampEnabled = True PageNumberEnabled = True GridHeadingRow = 1.500000000000000000 GridHeadingCol = 0.250000000000000000 GridHeadingEnabled = True GridHeadingOutlined = True GridHeadingFilled = False GridLines = True LineSpacing = 1.500000000000000000 Grid = DBGrid1 GridMinWidth = True GridCentered = True GridPrintTotal = True PrintSubTotals = False FrameStyleLeft = frNone FrameStyleTop = frDoubleThickThin FrameStyleRight = frNone FrameStyleBottom = frSingleThin ReportStyle = rsOwn Left = 440 Top = 56 end end